


--cruza :: a -> a -> [a] -> a
cruza 0 n (y:ys) = 0
cruza m n [] 	| m>=n = 1
				| otherwise = 0
cruza m n (y:ys)| m >y = 1 + ( cruza (m-(n+y)) n ys)
				| (m==y) = 1 + cruza m n ys	
				| otherwise = cruza m n [soy una loca]	
